home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / x / volume13 / xxgdb / patch2 next >
Encoding:
Text File  |  1991-07-16  |  28.1 KB  |  968 lines
  1. Path: uunet!cs.utexas.edu!sun-barr!cronkite.Central.Sun.COM!jethro!exodus!la.tce.com
  2. From: pierre@la.tce.com (Pierre Willard)
  3. Newsgroups: comp.sources.x
  4. Subject: v13i080: xxgdb, Patch2, Part01/01
  5. Message-ID: <16950@exodus.Eng.Sun.COM>
  6. Date: 16 Jul 91 23:53:51 GMT
  7. References: <csx-13i080-xxgdb@uunet.UU.NET>
  8. Sender: news@exodus.Eng.Sun.COM
  9. Lines: 956
  10. Approved: argv@sun.com
  11.  
  12. Submitted-by: pierre@la.tce.com (Pierre Willard)
  13. Posting-number: Volume 13, Issue 80
  14. Archive-name: xxgdb/patch2
  15. Patch-To: xxgdb: Volume 11, Issue 42-44 51-55
  16. Patch-To: xxgdb: Volume 12, Issue 78
  17.  
  18. (2/11/91) v11i042: xxgdb/part01
  19.      xxgdb - X front end for gdb, Part01/08
  20. (2/11/91) v11i043: xxgdb/part02
  21.     xxgdb - X front end for gdb
  22. (2/11/91) v11i044: xxgdb/part03
  23.      xxgdb - X front end for gdb, Part03/08
  24. (2/11/91) v11i051: xxgdb/part04
  25.      xxgdb - X front end for gdb, Part04/08
  26. (2/11/91) v11i052: xxgdb/part05
  27.     xxgdb - X front end for gdb
  28. (2/11/91) v11i053: xxgdb/part06
  29.     xxgdb - X front end for gdb
  30. (2/11/91) v11i054: xxgdb/part07
  31.     xxgdb - X front end for gdb
  32. (2/11/91) v11i055: xxgdb/part08
  33.      xxgdb - X front end for gdb, Part08/08
  34. (5/2/91) v12i078: xxgdb/patch1
  35.      xxgdb - X front end for gdb, Patch1, Part01/01
  36.  
  37.  
  38.  
  39.     XXGDB version 1.04 ( X window interface to the GDB debugger )
  40.     -------------------------------------------------------------
  41.  
  42. A little while ago (January 91) I posted the complete source files
  43. for xxgdb version 1.01 (Volume 11, Issue 42-55).
  44. In May 91 I posted the differences for xxgdb 1.03 (from 1.01)
  45. (Volume 12, Issue 78).
  46.  
  47. Please find in the following the differences from version
  48. 1.03 to 1.04.
  49.  
  50. NEW FEATURES OF VERSION 1.04  :
  51.  
  52.     display command print all error messages (if any).
  53.     fix bug display C structures.
  54.     several patches for more generic BSD machines (JBL)
  55.     patches for NeXT because some GDB incompatibilities.
  56.     display gdb messages when executing list command.
  57.     fix problem scrolling symbols while scrolling with keys (GWC).
  58.     fix bug displaying arrow when up/down in recursive function.
  59.  
  60. TO PATCH XXGDB FROM VERSION 1.03 TO VERSION 1.04 :
  61.  
  62.     cd <original xxgdb 1.03 source directory>
  63.     chmod +rw *
  64.     patch < <patch_file>
  65.     
  66. THE FOLLOWING IS THE PATCH FILE FOR XXGDB 1.04 FROM XXGDB 1.03 :
  67.  
  68. diff -rc2 v1.03/Imakefile v1.04/Imakefile
  69. *** v1.03/Imakefile    Tue Apr  2 09:33:13 1991
  70. --- v1.04/Imakefile    Tue May 14 09:00:24 1991
  71. ***************
  72. *** 10,18 ****
  73.   #if defined(SunArchitecture)
  74.   #if OSMajorVersion >= 4
  75. !     DEFINES = -DSUNOS4 $(DEFGDB)
  76.   #else
  77. !     DEFINES = -DOLDSUNOS -DNEED_STRSTR $(DEFGDB)
  78.   #endif
  79.   #endif
  80.   
  81.   #ifdef UltrixArchitecture
  82. --- 10,22 ----
  83.   #if defined(SunArchitecture)
  84.   #if OSMajorVersion >= 4
  85. ! #if OSMajorVersion == 4 && OSMinorVersion == 0
  86. !         DEFINES = -DSUNOS4 -DNEED_STRSTR $(DEFGDB)
  87.   #else
  88. !         DEFINES = -DSUNOS4 $(DEFGDB)
  89.   #endif
  90. + #else
  91. +         DEFINES = -DOLDSUNOS -DNEED_STRSTR $(DEFGDB)
  92.   #endif
  93. + #endif
  94.   
  95.   #ifdef UltrixArchitecture
  96. ***************
  97. *** 22,25 ****
  98. --- 26,33 ----
  99.           DEFINES = -DBSD $(DEFGDB)
  100.   #endif
  101. + #endif
  102. + 
  103. + #ifdef PegasusArchitecture
  104. + DEFINES = -DBSD $(DEFGDB) -DNEED_STRSTR
  105.   #endif
  106.   
  107. diff -rc2 v1.03/Makefile v1.04/Makefile
  108. *** v1.03/Makefile    Tue Apr  2 09:35:10 1991
  109. --- v1.04/Makefile    Thu May 30 15:39:41 1991
  110. ***************
  111. *** 37,41 ****
  112.               SHELL = /bin/sh
  113.   
  114. !               TOP = /net/pi/usr/X11R4/mit
  115.         CURRENT_DIR = .
  116.   
  117. --- 37,41 ----
  118.               SHELL = /bin/sh
  119.   
  120. !               TOP = /net/alpha/usr3/X11R4/mit
  121.         CURRENT_DIR = .
  122.   
  123. ***************
  124. *** 228,232 ****
  125.   DEFGDB =  -DGDB -g
  126.   
  127. !     DEFINES = -DSUNOS4 $(DEFGDB)
  128.   
  129.   mallocc = #malloc.c
  130. --- 228,232 ----
  131.   DEFGDB =  -DGDB -g
  132.   
  133. !         DEFINES = -DSUNOS4 $(DEFGDB)
  134.   
  135.   mallocc = #malloc.c
  136. diff -rc2 v1.03/XDbx.ad v1.04/XDbx.ad
  137. *** v1.03/XDbx.ad    Mon Nov 26 17:31:00 1990
  138. --- v1.04/XDbx.ad    Thu May 30 17:51:39 1991
  139. ***************
  140. *** 21,27 ****
  141.   *sourceWindow.scrollHorizontal:        whenNeeded
  142.   *sourceWindow.translations:        #override \n\
  143. !     <Btn1Down>:             SelectStart() SelectWord() \n\
  144. !     Shift<Btn1Up>:          Update() SelectEnd() PrintSelection() \n\
  145. !     <Btn1Up>:               Update() SelectEnd() \n
  146.   *messageWindow*font:              variable
  147.   *messageWindow.min:              30
  148. --- 21,39 ----
  149.   *sourceWindow.scrollHorizontal:        whenNeeded
  150.   *sourceWindow.translations:        #override \n\
  151. !     <Btn1Down>:     SelectStart() SelectWord() \n\
  152. !     Shift<Btn1Up>:  Update(warp) SelectEnd() PrintSelection() \n\
  153. !     <Btn1Up>:       Update(warp) SelectEnd() \n\
  154. !     <Key>Down:      next-line() Update()\n\
  155. !     <Key>Up:        previous-line() Update() \n\
  156. !     Ctrl<Key>L:     redraw-display() Update() \n\
  157. !     Ctrl<Key>N:     next-line() Update() \n\
  158. !     Ctrl<Key>P:     previous-line() Update() \n\
  159. !     Ctrl<Key>V:     next-page() Update() \n\
  160. !     Ctrl<Key>Z:     scroll-one-line-up() Update() \n\
  161. !     Meta<Key>V:     previous-page() Update() \n\
  162. !     Meta<Key>Z:     scroll-one-line-down() Update() \n\
  163. !     :Meta<Key>\>:   end-of-file() Update() \n\
  164. !     :Meta<Key>]:    forward-paragraph() Update() \n\
  165. !     :Meta<Key>[:    backward-paragraph() Update()
  166.   *messageWindow*font:              variable
  167.   *messageWindow.min:              30
  168. diff -rc2 v1.03/XXGDB_README v1.04/XXGDB_README
  169. *** v1.03/XXGDB_README    Tue Apr 16 09:03:21 1991
  170. --- v1.04/XXGDB_README    Tue Jul  9 13:36:08 1991
  171. ***************
  172. *** 165,168 ****
  173. --- 165,172 ----
  174.       See display_info_handler function in gdb_handler.c
  175.       
  176. +     - Copy the application default file (XDbx.ad) into your home
  177. +     directory or into the X '/usr/lib/X11/app-defaults' directory
  178. +     (eg, 'cp -p XDbx.ad ~/XDbx').
  179. +     
  180.       - The name of the debugger called by xxgdb is by default 'gdb'.
  181.       It can be overridden with the environment variable XXGDB_DEBUGGER.
  182. ***************
  183. *** 235,238 ****
  184. --- 239,250 ----
  185.                   Fix bug define commands in .gdbinit or source files
  186.                   Add db_name and db_prompt option (GWC)
  187. +     1.04    May 1991
  188. +                 display command print all error messages (if any).
  189. +                 fix bug display C structures.
  190. +                 several patches for more generic BSD machines (JBL)
  191. +                 patches for NeXT because some GDB incompatibilities.
  192. +                 display gdb messages when executing list command.
  193. +                 fix problem scrolling symbols while scrolling with keys (GWC).
  194. +                 fix bug displaying arrow when up/down in recursive function.
  195.                   
  196.   
  197. ***************
  198. *** 242,245 ****
  199. --- 254,261 ----
  200.       Thanks to Guy Cherry (GWC) for his numerous bug reports and
  201.       suggestions, and to all of you who helped improve xxgdb.
  202. +     
  203. +     Thanks to j braham levy (JBL) for his modifications for
  204. +     generic BSD machines.
  205. +     
  206.       
  207.                   --------------------------
  208. diff -rc2 v1.03/calldbx.c v1.04/calldbx.c
  209. *** v1.03/calldbx.c    Fri Apr 19 15:55:06 1991
  210. --- v1.04/calldbx.c    Tue May 14 09:10:10 1991
  211. ***************
  212. *** 69,73 ****
  213.    */
  214.   
  215. ! #ifdef OLDSUNOS
  216.   #include    <sys/ioctl.h>
  217.   #else
  218. --- 69,76 ----
  219.    */
  220.   
  221. ! /*
  222. !  * (JBL)10MAY91 : not only OLDSUNOS but generic BSD have sgttyb
  223. !  */
  224. ! #if defined(OLDSUNOS) || defined(BSD)
  225.   #include    <sys/ioctl.h>
  226.   #else
  227. ***************
  228. *** 146,150 ****
  229.   char *argv[];
  230.   {
  231. ! #ifndef OLDSUNOS
  232.       struct termio Termio;
  233.   #else
  234. --- 149,156 ----
  235.   char *argv[];
  236.   {
  237. ! /*
  238. !  * (JBL)10MAY91 : use sgttyb if generic BSD
  239. !  */
  240. ! #if !(defined(OLDSUNOS) || defined(BSD))
  241.       struct termio Termio;
  242.   #else
  243. ***************
  244. *** 232,235 ****
  245. --- 238,246 ----
  246.       of gdbinit files. Also for SYSV setvbuf is required. */
  247.    /*    setlinebuf(dbxfp); */
  248. +  
  249. +    /* (JBL)10MAY91 : to get the thing to work on my machine
  250. +     * i needed to set unbuffered mode via setbuf command
  251. +     * this should work on generic BSD platforms
  252. +     */
  253.      
  254.   #ifdef SYSV
  255. ***************
  256. *** 236,241 ****
  257. --- 247,256 ----
  258.       setvbuf(dbxfp, dbxfbuf, _IONBF, BUFSIZ); */
  259.   #else
  260. + #ifdef BSD
  261. +     setbuf(dbxfp, NULL);
  262. + #else
  263.       setvbuf(dbxfp, NULL, _IONBF, 0);
  264.   #endif
  265. + #endif
  266.   
  267.       dbxInputId = XtAppAddInput(app_context, master, XtInputReadMask, 
  268. ***************
  269. *** 260,264 ****
  270.        */
  271.        
  272. ! #ifndef OLDSUNOS
  273.       ioctl(slave, TCGETA, &Termio);
  274.       Termio.c_lflag &= ~ECHO;    /* No echo */
  275. --- 275,282 ----
  276.        */
  277.        
  278. !     /*
  279. !      * (JBL)10MAY91 : use sgttyb if OLDSUN or generic BSD
  280. !      */ 
  281. ! #if !(defined(OLDSUNOS) || defined(BSD))
  282.       ioctl(slave, TCGETA, &Termio);
  283.       Termio.c_lflag &= ~ECHO;    /* No echo */
  284. diff -rc2 v1.03/dbx.c v1.04/dbx.c
  285. *** v1.03/dbx.c    Fri Apr 12 17:05:54 1991
  286. --- v1.04/dbx.c    Tue May  7 14:59:14 1991
  287. ***************
  288. *** 183,186 ****
  289. --- 183,192 ----
  290.       command = get_command();
  291.           
  292. + #ifdef GDB
  293. +     if (Echo || Filter)
  294. +         filter(string, output, command);
  295. +     if (Echo && Prompt)
  296. +         AppendDialogText(xdbxprompt);
  297. + #else
  298.       if (Echo) {
  299.           filter(string, output, command);
  300. ***************
  301. *** 187,190 ****
  302. --- 193,197 ----
  303.           if (Prompt) AppendDialogText(xdbxprompt);
  304.       }
  305. + #endif
  306.       if (string) {
  307.           XtFree(string);
  308. ***************
  309. *** 224,228 ****
  310.   char *command;
  311.   {
  312. !     query_dbx_echo(command, False);
  313.   }
  314.   
  315. --- 231,235 ----
  316.   char *command;
  317.   {
  318. !     query_dbx_echo(command, False, False);
  319.   }
  320.   
  321. diff -rc2 v1.03/gdb_handler.c v1.04/gdb_handler.c
  322. *** v1.03/gdb_handler.c    Fri Apr 12 17:06:15 1991
  323. --- v1.04/gdb_handler.c    Tue May  7 14:59:11 1991
  324. ***************
  325. *** 83,87 ****
  326.    *    done_handler():        Progrm execution completed, clear breakpoints
  327.    *    source_handler():        Exec commands of source file specified.
  328. !  *    query_dbx_echo():        Send command with echo on or off.
  329.    */
  330.   
  331. --- 83,87 ----
  332.    *    done_handler():        Progrm execution completed, clear breakpoints
  333.    *    source_handler():        Exec commands of source file specified.
  334. !  *    query_dbx_echo():        Send command with echo on or off, filter on/off.
  335.    */
  336.   
  337. ***************
  338. *** 138,144 ****
  339.    
  340.        /* here we use query_dbx_echo instead of query_dbx so that any
  341. !      error message will be displayed ! */
  342.        
  343. !      query_dbx_echo("list ,main\n", TRUE);    /* tell gdb to use main file 
  344.                                    and get line number of main(). (,main will end at main) */
  345.      
  346. --- 138,144 ----
  347.    
  348.        /* here we use query_dbx_echo instead of query_dbx so that any
  349. !      error message will be displayed ! (because Filter is True) */
  350.        
  351. !      query_dbx_echo("list ,main\n", False, True);    /* tell gdb to use main file 
  352.                                    and get line number of main(). (,main will end at main) */
  353.      
  354. ***************
  355. *** 181,185 ****
  356.       Arg        args[MAXARGS];
  357.       Cardinal    n;
  358. ! 
  359.   #ifdef UNDISPWIN
  360.       /* this code removes the display window when there is nothing to display (GWC) */
  361. --- 181,185 ----
  362.       Arg        args[MAXARGS];
  363.       Cardinal    n;
  364. !     
  365.   #ifdef UNDISPWIN
  366.       /* this code removes the display window when there is nothing to display (GWC) */
  367. ***************
  368. *** 322,326 ****
  369.   void display_handler()    /* display or undisplay */
  370.   {
  371. !     query_dbx("display\n");    /* update display */
  372.   }
  373.   
  374. --- 322,326 ----
  375.   void display_handler()    /* display or undisplay */
  376.   {
  377. !     query_dbx_echo("display\n",False, True);    /* update display */
  378.   }
  379.   
  380. ***************
  381. *** 517,521 ****
  382.                       }
  383.                   else
  384. !                     query_dbx_echo (s, TRUE);
  385.                   }
  386.               }
  387. --- 517,521 ----
  388.                       }
  389.                   else
  390. !                     query_dbx_echo (s, TRUE, TRUE);
  391.                   }
  392.               }
  393. ***************
  394. *** 553,560 ****
  395.    *
  396.    *    Same as query_dbx() in dbx.c except that Echo = True or False.
  397.    */
  398. ! void query_dbx_echo(command, echo)
  399.   char *command;
  400.   int echo;
  401.   {
  402.       write_dbx(command);
  403. --- 553,564 ----
  404.    *
  405.    *    Same as query_dbx() in dbx.c except that Echo = True or False.
  406. +  *  and in case Echo = False, filter says if filter() must be called.
  407.    */
  408. ! Boolean Filter; /* filter dbx output (if Echo == false) ? */
  409. ! 
  410. ! void query_dbx_echo(command, echo, filter)
  411.   char *command;
  412.   int echo;
  413. + int filter;
  414.   {
  415.       write_dbx(command);
  416. ***************
  417. *** 562,565 ****
  418. --- 566,570 ----
  419.   
  420.       Echo = echo;
  421. +     Filter = filter;
  422.       Prompt = False;
  423.       while (!Prompt)
  424. diff -rc2 v1.03/gdb_parser.c v1.04/gdb_parser.c
  425. *** v1.03/gdb_parser.c    Fri Apr 12 17:05:32 1991
  426. --- v1.04/gdb_parser.c    Wed May 22 16:46:47 1991
  427. ***************
  428. *** 256,260 ****
  429.           break;
  430.   
  431. !     case C_DISPLAY:
  432.           {
  433.           if ((strcmp(output_string, "") == NULL) ||
  434. --- 256,260 ----
  435.           break;
  436.   
  437. !     case C_DISPLAY:    /* means "display foo\n" command */
  438.           {
  439.           if ((strcmp(output_string, "") == NULL) ||
  440. ***************
  441. *** 273,277 ****
  442.           break;
  443.   
  444. !     case C_DISPLAY_INFO:
  445.           {
  446.           if ((strcmp(output_string, "") == NULL) ||
  447. --- 273,277 ----
  448.           break;
  449.   
  450. !     case C_DISPLAY_INFO: /* means "display\n" command */
  451.           {
  452.           if ((strcmp(output_string, "") == NULL) ||
  453. ***************
  454. *** 472,484 ****
  455.               /* try to find end of display structure */
  456.               
  457. !             while(p1 = strstr(p,"}\n"))        /* find next occurrence of "}\n" */
  458. !                 {
  459. !                 if (p1 && ((p1 == p) || (*(p1-1) == '\n')))
  460. !                     {
  461. !                     /* this line is the end of the current display */
  462. !                     p = p1 + strlen("}\n");
  463. !                     break;
  464. !                     }
  465. !                 }
  466.               }
  467.           }
  468. --- 472,477 ----
  469.               /* try to find end of display structure */
  470.               
  471. !             if (p1 = strstr(p,"\n}\n"))
  472. !                 p = p1 + strlen("\n}\n");
  473.               }
  474.           }
  475. ***************
  476. *** 585,588 ****
  477. --- 578,595 ----
  478.                   strcpy(s, "");
  479.                   break;
  480. + 
  481. +             case C_DISPLAY_INFO:
  482. +                     /* (PW)7MAY91 : display error messages */
  483. +                 if (match(output_pattern, s, O_DISPLAY_INFO) != -1)
  484. +                     {    
  485. +                     if (Token.mesg && strcmp(Token.mesg, ""))    
  486. +                            {
  487. +                         AppendDialogText(Token.mesg);
  488. +                         bell(0);
  489. +                         }        
  490. +                     strcpy(s, "");
  491. +                     }
  492. +                 break;
  493. +                 
  494.               case C_SEARCH:
  495.                   if (match(output_pattern, s, O_SEARCH) != -1)
  496. ***************
  497. *** 590,595 ****
  498.                   break;
  499.               case C_LIST:
  500.                   if (match(output_pattern, s, O_LIST) != -1)
  501. !                 strcpy(s, "");
  502.                   break;
  503.               case C_PRINT:
  504. --- 597,611 ----
  505.                   break;
  506.               case C_LIST:
  507. +                     /* (PW)22MAY91 : display messages ") */
  508.                   if (match(output_pattern, s, O_LIST) != -1)
  509. !                     {    
  510. !                     if (Token.mesg && strcmp(Token.mesg, ""))    
  511. !                            {
  512. !                         AppendDialogText(Token.mesg);
  513. !                         if (strstr(Token.mesg,"Source file is more recent than executable."))
  514. !                             bell(0); /* Warn user WYSIWYG not true */
  515. !                         }        
  516. !                     strcpy(s, "");
  517. !                     }
  518.                   break;
  519.               case C_PRINT:
  520. ***************
  521. *** 612,615 ****
  522. --- 628,632 ----
  523.               {
  524.               case C_DISPLAY:
  525. +             case C_DISPLAY_INFO:
  526.               case C_SEARCH:
  527.               case C_LIST:
  528. diff -rc2 v1.03/gdb_regex.h v1.04/gdb_regex.h
  529. *** v1.03/gdb_regex.h    Fri Apr 12 10:06:33 1991
  530. --- v1.04/gdb_regex.h    Thu May 30 16:54:06 1991
  531. ***************
  532. *** 280,285 ****
  533.   
  534.   static PatternRec output_pattern[] = {
  535.       /* exec with Message after */
  536. !     {"\\(.*\n\\)*\032\032\\([^ ]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ ]+\\):0x.+\n\\([ ]*[^0-9].*\n\\)\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  537.        NULL,
  538.        {6, -1, -1, 3, 2, 7}
  539. --- 280,287 ----
  540.   
  541.   static PatternRec output_pattern[] = {
  542. + 
  543. + #ifndef NeXT  /* if standard GDB */
  544.       /* exec with Message after */
  545. !     {"\\(.*\n\\)*\032\032\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\):0x.+\n\\([ ]*[^0-9\n].*\n\\)\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  546.        NULL,
  547.        {6, -1, -1, 3, 2, 7}
  548. ***************
  549. *** 286,290 ****
  550.       },
  551.       /* exec with Message before */
  552. !     {"\\(.*\n\\)*\\([ ]*[^ ].*\n\\)\032\032\\([^ ]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ ]+\\):0x.+\n\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  553.        NULL,
  554.        {2, -1, -1, 4, 3, 7}    
  555. --- 288,292 ----
  556.       },
  557.       /* exec with Message before */
  558. !     {"\\(.*\n\\)*\\([ ]*[^ \n].*\n\\)\032\032\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\):0x.+\n\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  559.        NULL,
  560.        {2, -1, -1, 4, 3, 7}    
  561. ***************
  562. *** 291,298 ****
  563.       },
  564.       /* exec without Message */
  565. !     {"\\(.*\n\\)*\032\032\\(\\([^ ]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ ]+\\):0x.+\n\\)\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  566.        NULL,
  567.        {2, -1, -1, 4, 3, 7}
  568.       },
  569.       /* done */
  570.       {"\\(.*\n\\)*\n\\(Program terminated with signal \\|Program exited with code 0\\|Program exited normally\\).*\n\\(.*\n\\)*",
  571. --- 293,319 ----
  572.       },
  573.       /* exec without Message */
  574. !     {"\\(.*\n\\)*\032\032\\(\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\):0x.+\n\\)\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  575.        NULL,
  576.        {2, -1, -1, 4, 3, 7}
  577.       },
  578. +     
  579. + #else  /* NeXT is a special case : same as standard except that ":0x.+" are removed. */
  580. +     /* exec with Message after */
  581. +     {"\\(.*\n\\)*\032\032\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\)\n\\([ ]*[^0-9\n].*\n\\)\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  582. +      NULL,
  583. +      {6, -1, -1, 3, 2, 7}
  584. +     },
  585. +     /* exec with Message before */
  586. +     {"\\(.*\n\\)*\\([ ]*[^ \n].*\n\\)\032\032\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\)\n\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  587. +      NULL,
  588. +      {2, -1, -1, 4, 3, 7}    
  589. +     },
  590. +     /* exec without Message */
  591. +     {"\\(.*\n\\)*\032\032\\(\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\)\n\\)\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  592. +      NULL,
  593. +      {2, -1, -1, 4, 3, 7}
  594. +     },
  595. + #endif /* NeXT */
  596. + 
  597.       /* done */
  598.       {"\\(.*\n\\)*\n\\(Program terminated with signal \\|Program exited with code 0\\|Program exited normally\\).*\n\\(.*\n\\)*",
  599. ***************
  600. *** 301,305 ****
  601.       },
  602.       /* break */
  603. !     {"\\(.*\n\\)*Breakpoint \\([0-9]+\\) at [^ ]+: file \\([^ ]+\\), line \\([0-9]+\\).\n",
  604.        NULL,
  605.        {-1, 2, -1, 4, 3, -1}
  606. --- 322,326 ----
  607.       },
  608.       /* break */
  609. !     {"\\(.*\n\\)*Breakpoint \\([0-9]+\\) at [^ \n]+: file \\([^ \n]+\\), line \\([0-9]+\\).\n",
  610.        NULL,
  611.        {-1, 2, -1, 4, 3, -1}
  612. ***************
  613. *** 306,318 ****
  614.       },
  615.       /* info directories */
  616. !     {"Source directories searched:[ ]*\\([^ ]+\\)[ ]*\n",
  617.        NULL,
  618.        { -1, -1, -1, -1, 1, -1}
  619.       },
  620.       /* up, down */
  621. !     {"\\(.*\n\\)*\\(#[0-9]+[ ]+\\(0x[^ ]+[ ]+in[ ]+\\)?\\([^ ]+\\)[^\032]*\\)\032\032\\([^ ]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ ]+\\):0x.+\n",
  622.        NULL,
  623.        {2, -1, 4, 6, 5, -1}    
  624.       },
  625.       /* bell */
  626.       {"\\(Undefined command: .*\n\\|Already at the \\(top\\|bottom\\) call level\n\\|\
  627. --- 327,351 ----
  628.       },
  629.       /* info directories */
  630. !     {"Source directories searched:[ ]*\\([^ \n]+\\)[ ]*\n",
  631.        NULL,
  632.        { -1, -1, -1, -1, 1, -1}
  633.       },
  634. +     
  635. +     
  636. + #ifndef NeXT  /* if standard GDB */
  637.       /* up, down */
  638. !     {"\\(.*\n\\)*\\(#[0-9]+[ ]+\\(0x[^ \n]+[ ]+in[ ]+\\)?\\([^ \n]+\\)[^\032]*\\)\032\032\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\):0x.+\n",
  639.        NULL,
  640.        {2, -1, 4, 6, 5, -1}    
  641.       },
  642. + #else  /* NeXT is a special case : same as standard except that ":0x.+" are removed. */
  643. +     /* up, down */
  644. +     {"\\(.*\n\\)*\\(#[0-9]+[ ]+\\(0x[^ \n]+[ ]+in[ ]+\\)?\\([^ \n]+\\)[^\032]*\\)\032\032\\([^ \n]+\\):\\([0-9]+\\):\\([0-9]+\\):\\([^ \n]+\\)\n",
  645. +      NULL,
  646. +      {2, -1, 4, 6, 5, -1}    
  647. +     },
  648. + #endif /* NeXT */
  649. + 
  650. + 
  651.       /* bell */
  652.       {"\\(Undefined command: .*\n\\|Already at the \\(top\\|bottom\\) call level\n\\|\
  653. ***************
  654. *** 330,334 ****
  655.       },
  656.       /* info line */
  657. !     {"\\(Line \\(number \\)?[0-9]+ \\(of\\|is out of range for\\) \"\\([^ ]+\\)\".*\\)\n",
  658.        NULL,
  659.        {-1, -1, -1, -1, 4, -1}
  660. --- 363,367 ----
  661.       },
  662.       /* info line */
  663. !     {"\\(Line \\(number \\)?[0-9]+ \\(of\\|is out of range for\\) \"\\([^ \n]+\\)\".*\\)\n",
  664.        NULL,
  665.        {-1, -1, -1, -1, 4, -1}
  666. ***************
  667. *** 345,357 ****
  668.       },
  669.       /* directory */
  670. !     {"\\([^ ]+ is already in the source path.[ ]*\n\\)*Source directories searched:[ ]*\\([^ ]+\\)[ ]*\n",
  671.        NULL,
  672.        { -1, -1, -1, -1, 1, -1}
  673.       },
  674. !     /* list */
  675. !     {"\\(.*\n\\)*\\(\\([0-9]+\\).*\n\\)",
  676.        NULL,
  677. !      { -1, -1, -1, 3, -1, -1}
  678.       },
  679.       /* display */
  680.       {"\\([0-9]+:.*\n\\)",
  681. --- 378,395 ----
  682.       },
  683.       /* directory */
  684. !     {"\\([^ \n]+ is already in the source path.[ ]*\n\\)*Source directories searched:[ ]*\\([^ \n]+\\)[ ]*\n",
  685.        NULL,
  686.        { -1, -1, -1, -1, 1, -1}
  687.       },
  688. !     /* list : 22MAY91 put message in Token.mesg (edit again 30MAY91) */
  689. !     {"\\(\\([^0-9\n]+.*\n\\)*\\)\\(.*\n\\)*\\(\\([0-9]+\\).*\n\\)",
  690.        NULL,
  691. !      { 1, -1, -1, 5, -1, -1}
  692.       },
  693. + /*    {"\\(\\(.*\n\\)*\\)\\(\\([0-9]+\\).*\n\\)",
  694. +      NULL,
  695. +      { 1, -1, -1, 4, -1, -1}
  696. +     },
  697. + */
  698.       /* display */
  699.       {"\\([0-9]+:.*\n\\)",
  700. ***************
  701. *** 360,369 ****
  702.       },
  703.       /* info display */
  704. !     {"\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  705.        NULL,
  706.        { -1, -1, -1, -1, -1, 1}
  707.       },
  708.       /* pwd or cd */
  709. !     {"Working directory[ ]+\\([^ ]+\\).[ ]*\n\\([ ]*(canonically[ ]+\\([^ ]+\\)).\n\\)?",
  710.        NULL,
  711.        { 1, -1, -1, -1, -1, 3}
  712. --- 398,412 ----
  713.       },
  714.       /* info display */
  715. !     {"\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)\\(\\(.*\n\\)*\\)",
  716.        NULL,
  717. +      {  5, -1, -1, -1, -1, 1}
  718. +     },
  719. + /*    {"\\(\\([0-9]+:.*\n\\(\\( .*\n\\)*}\n\\)?\\)*\\)",
  720. +      NULL,
  721.        { -1, -1, -1, -1, -1, 1}
  722.       },
  723. + */
  724.       /* pwd or cd */
  725. !     {"Working directory[ ]+\\([^ \n]+\\).[ ]*\n\\([ ]*(canonically[ ]+\\([^ \n]+\\)).\n\\)?",
  726.        NULL,
  727.        { 1, -1, -1, -1, -1, 3}
  728. ***************
  729. *** 370,374 ****
  730.       },
  731.       /* program received signal */
  732. !     {"\\(.*\n\\)*\n\\(Program received signal \\([-]?[0-9]+\\), [^ ]+.*\n\\)\\(.*\n\\)*",
  733.       NULL,
  734.        {  2, 3, -1, -1, -1, -1}
  735. --- 413,417 ----
  736.       },
  737.       /* program received signal */
  738. !     {"\\(.*\n\\)*\n\\(Program received signal \\([-]?[0-9]+\\), [^ \n]+.*\n\\)\\(.*\n\\)*",
  739.       NULL,
  740.        {  2, 3, -1, -1, -1, -1}
  741. ***************
  742. *** 375,379 ****
  743.       },
  744.       /* special for test in filter_display_info() */
  745. !     {"\\([^0-9].*\n\\)*\\([0-9]+:.*\n\\)\\(.*\n\\)*",
  746.        NULL,
  747.        { -1, -1, -1, -1, -1, 2}
  748. --- 418,422 ----
  749.       },
  750.       /* special for test in filter_display_info() */
  751. !     {"\\([^0-9\n].*\n\\)*\\([0-9]+:.*\n\\)\\(.*\n\\)*",
  752.        NULL,
  753.        { -1, -1, -1, -1, -1, 2}
  754. ***************
  755. *** 385,389 ****
  756.       },
  757.       /* core-file */
  758. !     {"\\(.*\n\\)*\\(Program terminated with signal \\([-]?[0-9]+\\), [^ ]+.*\n\\)\\(.*\n\\)*",
  759.       NULL,
  760.        {  2, 3, -1, -1, -1, -1}
  761. --- 428,432 ----
  762.       },
  763.       /* core-file */
  764. !     {"\\(.*\n\\)*\\(Program terminated with signal \\([-]?[0-9]+\\), [^ \n]+.*\n\\)\\(.*\n\\)*",
  765.       NULL,
  766.        {  2, 3, -1, -1, -1, -1}
  767. ***************
  768. *** 434,438 ****
  769.       /* symbol-file */
  770.       {"[ ]*sy.*\n",                             NULL, {-1, -1, -1, -1, -1, -1}},
  771. !     {"[ ]*cd[ ]*[^ ]+[ ]*\n",                 NULL, {-1, -1, -1, -1, -1, -1}},
  772.       
  773.       /* directory */
  774. --- 477,481 ----
  775.       /* symbol-file */
  776.       {"[ ]*sy.*\n",                             NULL, {-1, -1, -1, -1, -1, -1}},
  777. !     {"[ ]*cd[ ]*[^ \n]+[ ]*\n",             NULL, {-1, -1, -1, -1, -1, -1}},
  778.       
  779.       /* directory */
  780. ***************
  781. *** 451,455 ****
  782.       add any expression to be displayed */
  783.       {"[ ]*disp[lay]*[ ]*\n",                            NULL, {-1, -1, -1, -1, -1, -1}},
  784. !     {"[ ]*disp[lay]\\(/[^ ]+\\)?*[ ]*[^ ]+[ ]*.*\n",    NULL, {-1, -1, -1, -1, -1, -1}},
  785.       
  786.       /* undisplay */
  787. --- 494,498 ----
  788.       add any expression to be displayed */
  789.       {"[ ]*disp[lay]*[ ]*\n",                            NULL, {-1, -1, -1, -1, -1, -1}},
  790. !     {"[ ]*disp[lay]\\(/[^ \n]+\\)?*[ ]*[^ \n]+[ ]*.*\n",    NULL, {-1, -1, -1, -1, -1, -1}},
  791.       
  792.       /* undisplay */
  793. ***************
  794. *** 458,462 ****
  795.       /* Note that Token.mesg (if any) is updated with print command (see 1) */
  796.       
  797. !     {"[ ]*print[ ]*\\([^ ]?\\([ ]+[^ ]+\\)*\\)[ ]*\n",    NULL, { 1, -1, -1, -1, -1, -1}},
  798.       {"[ ]*info[ ]+break[ ]*\n",                NULL, {-1, -1, -1, -1, -1, -1}},
  799.       
  800. --- 501,505 ----
  801.       /* Note that Token.mesg (if any) is updated with print command (see 1) */
  802.       
  803. !     {"[ ]*print[ ]*\\([^ \n]?\\([ ]+[^ \n]+\\)*\\)[ ]*\n",    NULL, { 1, -1, -1, -1, -1, -1}},
  804.       {"[ ]*info[ ]+break[ ]*\n",                NULL, {-1, -1, -1, -1, -1, -1}},
  805.       
  806. ***************
  807. *** 471,477 ****
  808.   
  809.       /* define */
  810. !     {"[ ]*def[ine]*[ ]+[^ ]+\n",             NULL, {-1, -1, -1, -1, -1, -1}},
  811.       /* document */
  812. !     {"[ ]*doc[ument]*[ ]+[^ ]+\n",             NULL, {-1, -1, -1, -1, -1, -1}},
  813.       /* end of define or document */
  814.       {"[ ]*end[ ]*.*",                         NULL, {-1, -1, -1, -1, -1, -1}},
  815. --- 514,520 ----
  816.   
  817.       /* define */
  818. !     {"[ ]*def[ine]*[ ]+[^ \n]+\n",             NULL, {-1, -1, -1, -1, -1, -1}},
  819.       /* document */
  820. !     {"[ ]*doc[ument]*[ ]+[^ \n]+\n",         NULL, {-1, -1, -1, -1, -1, -1}},
  821.       /* end of define or document */
  822.       {"[ ]*end[ ]*.*",                         NULL, {-1, -1, -1, -1, -1, -1}},
  823. diff -rc2 v1.03/global.h v1.04/global.h
  824. *** v1.03/global.h    Tue Apr  2 09:00:55 1991
  825. --- v1.04/global.h    Tue May  7 14:59:20 1991
  826. ***************
  827. *** 225,228 ****
  828. --- 225,229 ----
  829.   
  830.   #ifdef GDB
  831. + extern Boolean     Filter;            /* filter dbx output (if Echo == false) ? */
  832.   extern void         display_info_handler();
  833.   extern void         break_handler();
  834. diff -rc2 v1.03/signs.c v1.04/signs.c
  835. *** v1.03/signs.c    Mon Nov 26 17:31:32 1990
  836. --- v1.04/signs.c    Tue Jul  9 13:32:49 1991
  837. ***************
  838. *** 332,340 ****
  839.   
  840.       if (file == NULL) return;
  841.       if (updown.file && !strcmp(updown.file, arrow.file) && 
  842. !     !strcmp(updown.func, arrow.func)) {
  843.       updown.line = 0;
  844.       strcpy(updown.file, "");
  845.       }
  846.       i = updown.i;
  847.       if (i>=0 && i<file->lines)
  848. --- 332,343 ----
  849.   
  850.       if (file == NULL) return;
  851. +     
  852. + /* (PW)9JULY91 : add test line else it prevents up/down when a function calls itself */
  853.       if (updown.file && !strcmp(updown.file, arrow.file) && 
  854. !     !strcmp(updown.func, arrow.func) && (updown.line == arrow.line)) {
  855.       updown.line = 0;
  856.       strcpy(updown.file, "");
  857.       }
  858. + 
  859.       i = updown.i;
  860.       if (i>=0 && i<file->lines)
  861. diff -rc2 v1.03/source.c v1.04/source.c
  862. *** v1.03/source.c    Thu Apr 11 14:33:58 1991
  863. --- v1.04/source.c    Thu May 30 17:53:57 1991
  864. ***************
  865. *** 131,135 ****
  866.           file->bottomline = MIN (file->topline + file->lines - 1, 
  867.                       file->lastline);
  868. !         XawTextSetInsertionPoint(sourceWindow, file->linepos[file->topline]);
  869.           UpdateLineLabel(file->topline);
  870.               UpdateStops(file);
  871. --- 131,151 ----
  872.           file->bottomline = MIN (file->topline + file->lines - 1, 
  873.                       file->lastline);
  874. !         /* 
  875. !           03/26/91 mod 7 GWC
  876. !           Fixed a bug where the special margin symbols (arrows, stop signs,
  877. !           etc.) did not scroll when one moved the text with keyboard commands
  878. !           such as Ctrl<Key>n.  To do this the Update action procedure should
  879. !           be called after text widget actions such as next-line.
  880. !           Unfortunately Update needed to be enhanced a bit not to always warp
  881. !           the cursor to the top of the window.  You can now call Update with a
  882. !           parameter "warp" to warp the cursor to the top of the screen; the
  883. !           default is not to warp.
  884. !           */
  885. !         if (*num_params == 1 && strcmp(params[0], "warp") == 0)
  886. !           {
  887. !         XawTextSetInsertionPoint(sourceWindow,
  888. !                      file->linepos[file->topline]);
  889. !           }
  890. ! 
  891.           UpdateLineLabel(file->topline);
  892.               UpdateStops(file);
  893. ***************
  894. *** 598,601 ****
  895. --- 614,626 ----
  896.           dirList[i] = NULL;
  897.       }
  898. + 
  899. + #if defined(NeXT) && defined(GDB)
  900. +     /* for NeXT computer, send 'directory' command for each directory */
  901. +     for (i=0; dirList[i]; i++) {
  902. +     sprintf(command, "directory %s\n", dirList[i]);
  903. +     Parse = False;
  904. +     query_dbx(command);
  905. +     }
  906. + #else /* not NeXT */
  907.       strcpy(list, "");                /* tell dbx our new list */
  908.       for (i=0; dirList[i]; i++) {
  909. ***************
  910. *** 610,613 ****
  911. --- 635,639 ----
  912.       Parse = False;
  913.       query_dbx(command);
  914. + #endif /* not NeXT */
  915.   }
  916.   
  917. diff -rc2 v1.03/windows.c v1.04/windows.c
  918. *** v1.03/windows.c    Wed Apr  3 15:54:34 1991
  919. --- v1.04/windows.c    Mon May 20 09:27:40 1991
  920. ***************
  921. *** 246,250 ****
  922.       Cardinal     n;
  923.   
  924. !     fulllength = strlen ("  ") + strlen (format) + 1 + (arg == NULL) ? 0 : strlen (arg);
  925.       
  926.       if (fulllength > LINESIZ)
  927. --- 246,250 ----
  928.       Cardinal     n;
  929.   
  930. !     fulllength = strlen ("  ") + strlen (format) + 1 + ((arg == NULL) ? 0 : strlen (arg));
  931.       
  932.       if (fulllength > LINESIZ)
  933. diff -rc2 v1.03/xdbx.c v1.04/xdbx.c
  934. *** v1.03/xdbx.c    Tue Apr 16 10:22:40 1991
  935. --- v1.04/xdbx.c    Mon Jul 15 15:50:50 1991
  936. ***************
  937. *** 72,76 ****
  938.   
  939.   #ifdef GDB
  940. ! #define XGDBVERSION    "1.03"
  941.   #endif
  942.   
  943. --- 72,76 ----
  944.   
  945.   #ifdef GDB
  946. ! #define XGDBVERSION    "1.04"
  947.   #endif
  948.   
  949. ***************
  950. *** 261,265 ****
  951.   
  952.   #ifdef GDB
  953. !     sprintf(title, "xxgdb %s (from xdbx %s patch level %d)", XGDBVERSION,VERSION, PATCHLEVEL);
  954.       XStoreName(display, XtWindow(toplevel), title);
  955.       XSetIconName(display, XtWindow(toplevel), "xxgdb");
  956. --- 261,265 ----
  957.   
  958.   #ifdef GDB
  959. !     sprintf(title, "xxgdb %s", XGDBVERSION);
  960.       XStoreName(display, XtWindow(toplevel), title);
  961.       XSetIconName(display, XtWindow(toplevel), "xxgdb");
  962.  
  963. --
  964. Dan Heller
  965. O'Reilly && Associates       Z-Code Software    Comp-sources-x:
  966. Senior Writer                President          comp-sources-x@uunet.uu.net
  967. argv@ora.com                 argv@zipcode.com
  968.